home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / castle of doom (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  18KB  |  516 lines
  1. 0 GOTO5
  2. 1 GOTO!!!!
  3. 2 REM
  4. 3 REM ZEILEN 0 UND 1 NICHT AENDERN !!!!
  5. 4 REM
  6. 5 DIMV$(14),H$(21),RI$(19),ZI$(19),G$(12),G(12)
  7. 6 L$="                        "
  8. 7 CL$="[165]                      [167]"
  9. 8 EF$="                                       "
  10. 10 POKE53280,14:POKE53281,14:POKE53272,23:P=15:QQ=54272:VI=53248
  11. 15 POKEVI+21,0:PRINT"[147]"SPC(12)"[144][195][193][211][212][204][197][160][207][198][160][196][207][207][205]":REM CASTLE OF DOOM
  12. 20 PRINT"    [197]IN [193]DVENTURE VON [194].[215]EISSBECKER"
  13. 25 PRINTSPC(11)"* [194]ITTE WARTEN *"
  14. 30 FORI=1TO14:READV$(I)
  15. 35 IFI<10THENREADKB$(I)
  16. 40 NEXT
  17. 45 FORI=1TO21:READH$(I):NEXT
  18. 50 FORI=1TO19:READRI$(I),ZI$(I):NEXT
  19. 55 FORI=1TO12:G$(I)=H$(I):READG(I):NEXT
  20. 60 FORI=1TO4:READZX$(I),ZY$(I):NEXT
  21. 65 FORI=13TO15
  22. 70 FORJ=0TO62:READK:POKE64*I+J,K:NEXT:NEXT
  23. 85 PRINT"[145]  [205]OECHTEN [211]IE EINE [197]RKLAERUNG ? ([202]/[206])"
  24. 90 GETA$:IFA$="J"THEN7500
  25. 95 IFA$<>"N"THEN90
  26. 100 PRINT"[147][144]"SPC(10)"[195][193][211][212][204][197][160][207][198][160][196][207][207][205]"
  27. 105 PRINT"[159] [194]EI DIESEM [193]DVENTURE KOENNEN [211]IE ZWI-"
  28. 110 PRINT" SCHEN DREI [214]ERSIONEN WAEHLEN :":PRINT"  [215]OLLEN [211]IE :"
  29. 115 PRINT"  1 - [197]INE VERZAUBERTE [208]RINZESSIN":PRINTSPC(6)"RETTEN"
  30. 120 PRINT"  2 - [197]INEN BOESEN [218]AUBERER BESIEGEN"
  31. 125 PRINT"  3 - [197]INEN [211]CHATZ SUCHEN"
  32. 130 PRINT" [194]ITTE GEBEN [211]IE DIE ENTSPRECHENDE"
  33. 135 PRINT" [203]ENNZIFFER EIN."
  34. 140 POKE198,0:WAIT198,1
  35. 145 GETI$:IFASC(I$)<49ORASC(I$)>51THEN140
  36. 150 V=VAL(I$):IFV<>2THEN160
  37. 155 RI$(13)="W-O":ZI$(13)="1214":RI$(9)="W-O-R":ZI$(9)="081018"
  38. 157 RI$(8)="N-S-O":ZI$(8)="051209"
  39. 160 IFV=1THENG(7)=1
  40. 165 FORI=1TO4:J(I)=1+4*RND(TI):NEXT
  41. 170 Z1$=ZX$(J(1))+ZY$(J(2))
  42. 175 Z2$=ZX$(J(3))+ZY$(J(4))
  43. 176 IFZ1$=Z2$THEN165
  44. 177 TI$="000000"
  45. 179 REM **** BILDER ZEICHNEN ****
  46. 180 PRINT"[147][144]";:POKE53272,21:POKEVI+21,0:POKEVI+23,0:POKEVI+29,0
  47. 185 FORI=1TO20:PRINTSPC(8)CL$:NEXT
  48. 190 FORI=1824TO1863:POKEI,99:POKEI+QQ,0:NEXT
  49. 195 IFP>11THEN415
  50. 197 POKE53280,5:POKE53281,5
  51. 200 PRINT"";:FORI=1TO4:PRINTSPC(8+I)"[205]"SPC(22-2*I)"[206]":NEXT
  52. 205 PRINTSPC(13)"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  53. 210 FORI=1TO10:PRINTSPC(12)"[167]"SPC(14)"[165]":NEXT
  54. 215 PRINTSPC(13)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][145]"
  55. 220 FORI=1TO5:PRINTSPC(13-I)"[206]"SPC(12+2*I)"[205]":NEXT
  56. 225 FORI=1TOLEN(RI$(P))STEP2:A$=MID$(RI$(P),I,1)
  57. 230 IFA$="N"THEN250
  58. 235 IFA$="W"THEN260
  59. 240 IFA$="O"THEN265
  60. 245 NEXT:GOTO270
  61. 250 FORJ=1402TO1562STEP40:FORK=0TO3:POKEJ+K,160:POKEJ+K+QQ,0:NEXT:NEXT
  62. 255 POKE1402,254:POKE1405,252:GOTO245
  63. 260 FORJ=1552TO1752STEP40:POKEJ,160:POKEQQ+J,0:NEXT:POKE1752,105:GOTO245
  64. 265 FORJ=1575TO1775STEP40:POKEJ,160:POKEQQ+J,0:NEXT:POKE1775,95:GOTO245
  65. 270 ONPGOTO275,740,300,315,740,325,345,740,355,375,395
  66. 275 ONVGOTO740,280,285
  67. 280 POKE2040,15:POKEVI+39,0:POKEVI,150:POKEVI+1,140:POKEVI+29,1:POKEVI+23,1
  68. 282 POKEVI+21,1:ZB=1:GOTO740
  69. 285 PRINT""SPC(13)"[175][175][175][175]":PRINTSPC(12)"[206]   [206][180]"
  70. 290 PRINTSPC(11)"[206]   [206] [180]":PRINTSPC(11)"[207][183][183][208]  [180]":PRINTSPC(11)"[180]$$[170] [206]"
  71. 295 PRINTSPC(11)"[204][175][175][186][206] SCHATZ":FORI=1TO2000:NEXT:GOTO7830
  72. 300 IFLEFT$(RI$(3),1)="N"THEN740
  73. 305 FORJ=1402TO1562STEP40:FORK=0TO3
  74. 310 POKEJ+K,160:POKEJ+K+QQ,06:NEXT:NEXT:PRINTSPC(16)"[145][145][145][145][144]SPIEGEL":GOTO740
  75. 315 PRINT""SPC(13)"[223]    [146][169]":PRINTSPC(14)"[223]  [146][169]":PRINTSPC(15)"[180][170]"
  76. 320 FORI=1TO10:PRINTSPC(15)"[207][208]":NEXT:GOTO740
  77. 325 PRINT"[149]"SPC(13)"[175][175][175][175][175]":PRINTSPC(13)"[204][175][175][175][186]"
  78. 330 PRINTSPC(12)"[206]    [206][180]":PRINTSPC(11)"[206]    [206][206][180]":PRINTSPC(10)"[206]    [206][206][183]"
  79. 335 PRINTSPC(9)"[207][183][183][183][208][206][206]":PRINTSPC(9)"[180]   [170][206]":PRINTSPC(9)"[204][175][175][175][186]  SCHLAFZIMMER"
  80. 340 GOTO740
  81. 345 IFGE=1THEN740
  82. 350 POKE2040,13:POKEVI+39,1:POKEVI,150:POKEVI+1,150:POKEVI+23,1:POKEVI+29,1
  83. 351 POKEVI+21,1:IFG(12)<>0THENFORI=1TO2000:NEXT:GOTO7630
  84. 352 GS=1:GOTO740
  85. 355 PRINT"[144]"SPC(11)"BURGHOF / BRUNNEN":PRINTSPC(13)"[207][204][207][204][207][204][207][208][186][208][186][208][186][208]"
  86. 360 PRINTSPC(17)"[164][175][185][185][175][164]":PRINTSPC(16)"        "
  87. 365 PRINTSPC(16)"[180][163][183][184][184][183][163][170]":PRINTSPC(16)"[180]      [170]":PRINTSPC(16)"[183][197][196][195][195][196][197][183]"
  88. 370 GOTO740
  89. 375 POKE214,14:PRINT
  90. 380 IFFA=1THENPRINTSPC(23)"[223]   [223]":PRINTSPC(24)"[223]   [223]":GOTO740
  91. 385 PRINTSPC(23)"[175][175][175][175]":PRINTSPC(23)"[205]   [205]"
  92. 390 PRINTSPC(16)"QUADRAT [205]   [205]":PRINTSPC(25)"[183][183][183][183]":GOTO740
  93. 395 PRINT""SPC(23)"[175][175][175][175]":PRINTSPC(22)"[170][205]   [205]":PRINTSPC(22)"[170] [207][208][183][208]"
  94. 400 PRINTSPC(15)"[204][186]     [170] [180][170].[170]":PRINTSPC(15)"[204][186]     [170] [180][170] [170]"
  95. 405 PRINTSPC(14)"[169]  [223][146][183][183][183][183][183][205][204][186][175][186]":PRINTSPC(13)"[169]    [223]"
  96. 410 PRINTSPC(21)"SCHRANK":GOTO740
  97. 415 IFP>14THEN445
  98. 417 POKE53280,8:POKE53281,8
  99. 420 PRINT"";:FORI=1TO6:PRINTSPC(8)""L$:NEXT
  100. 425 FORI=55504TO55514STEP2:POKEI,7:NEXT:FORI=55517TO55527STEP2:POKEI,7:NEXT
  101. 430 FORI=1TO11:PRINT"[158]"SPC(8)L$:NEXT:FORI=1TO3:PRINT"[149]"SPC(8)L$:NEXT
  102. 435 IFLEFT$(RI$(P),1)<>"N"THEN740
  103. 440 POKE214,11:PRINT"[144]":FORI=1TO5:PRINTSPC(18)"    ":NEXT
  104. 442 GOTO740
  105. 445 POKE53280,14:POKE53281,14:ONP-14GOTO555,450,485,500,540
  106. 450 PRINT"[158]"SPC(20)"[172]":PRINTSPC(18)"   "
  107. 460 PRINTSPC(17)"[149][172] [206] [188]":PRINTSPC(16)"[169] [206]   [188]"
  108. 465 PRINTSPC(15)"[172] (      [188]":PRINTSPC(14)"[162][190]  [205]       [188]"
  109. 470 PRINTSPC(13)"[169]     [205]       [188]"
  110. 475 FORI=1TO7:PRINTSPC(8)L$:NEXT
  111. 480 PRINTSPC(9)"[145][145][145][145][145][145]BERG"
  112. 481 IFLEN(RI$(16))=5THENPRINTSPC(9)"STEILER WEG NACH OBEN"
  113. 482 GOTO740
  114. 485 PRINT""SPC(9)"STEILER BERGHANG,":PRINTSPC(9)"HOEHLE"
  115. 490 PRINTSPC(21)"[162]":PRINTSPC(19)"[172]   [190][188][146][187]"
  116. 495 FORI=1TO6:PRINTSPC(19)"       ":NEXT:GOTO740
  117. 500 PRINT"";:FORI=1TO19:PRINTSPC(8)L$:NEXT
  118. 505 PRINT""SPC(9)"IM BRUNNEN ..."
  119. 510 IFV<>3THEN740
  120. 515 IFMO=1THENPRINT"":GOTO530
  121. 520 POKE2040,14:POKEVI+39,13:POKEVI,200:POKEVI+1,150:POKEVI+23,1:POKEVI+29,1
  122. 525 PRINTSPC(9)"MONSTER":POKEVI+21,1:MR=1
  123. 530 PRINTSPC(9)"TUER":FORI=1TO7:PRINTSPC(16)"     ":NEXT
  124. 535 IFRI$(18)="H"THENPOKE1601,114
  125. 537 GOTO740
  126. 540 PRINT"";:FORI=1TO20:PRINTSPC(8)L$:NEXT
  127. 545 PRINT""SPC(9)"IN DER HOEHLE ..."
  128. 550 PRINTSPC(9)"STOCKDUNKEL HIER ...":GOTO740
  129. 555 PRINT""SPC(13)"[207][183][183][183][183][183][183][183][183][183][183][183][208]":PRINTSPC(13)"[180] B A S A R [170]"
  130. 560 PRINTSPC(13)"[204][175][175][175][175][175][175][175][175][175][175][175][186]"
  131. 565 IFXX=1THEN655
  132. 570 PRINTSPC(9)"[144]EIN   BEFREUNDETER"
  133. 575 PRINTSPC(9)"HAENDLER IST BEREIT,":PRINTSPC(9)"IHNEN ZWEI DER FOLGEN-"
  134. 580 PRINTSPC(9)"DEN GEGENSTAENDE ZU":PRINTSPC(9)"UEBERLASSEN :"
  135. 585 PRINTSPC(9)"1[146] GLASKUGEL 2[146] KAEFIG"
  136. 590 PRINTSPC(9)"3[146] AMULETT   4[146] BUCH"
  137. 595 PRINT"  BITTE ENTSPRECHENDE NUMMERN EINGEBEN"
  138. 600 GETI$:IFI$=""THEN600
  139. 605 IFASC(I$)<49ORASC(I$)>52THEN600
  140. 610 ONVAL(I$)GOSUB635,640,645,650
  141. 615 GETJ$:IFJ$=""ORJ$=I$THEN615
  142. 620 IFASC(J$)<49ORASC(J$)>52THEN615
  143. 625 ONVAL(J$)GOSUB635,640,645,650
  144. 630 XX=1:GG=GG+2:GOSUB7000:GOTO655
  145. 635 POKE1633,49:G(1)=0:RETURN
  146. 640 POKE1645,50:G(2)=0:RETURN
  147. 645 POKE1713,51:G(3)=0:RETURN
  148. 650 POKE1725,52:G(4)=0:RETURN
  149. 655 YY=0:FORI=1TO4:IFG(I)=0THENYY=YY+1
  150. 657 NEXT:IFYY<>2THEN710
  151. 660 PRINT"[144]"SPC(9)"WOLLEN SIE DIE GEGEN-"
  152. 665 PRINTSPC(9)"STAENDE, DIE SIE HIER":PRINTSPC(9)"ERHALTEN HABEN, NOCH  "
  153. 670 PRINTSPC(9)"EINMAL UMTAUSCHEN ?":PRINTSPC(9)"        (J/N)"
  154. 675 PRINT:PRINTSPC(8)CL$:PRINT:PRINTSPC(8)CL$:GOSUB860
  155. 680 GETI$:IFI$="N"THEN710
  156. 685 IFI$<>"J"THEN680
  157. 690 FORI=1TO4:G(I)=20:NEXT:GG=GG-2
  158. 695 PRINT"":FORI=1TO9:PRINTSPC(8)CL$:NEXT
  159. 700 PRINT""SPC(12)"WAEHLEN SIE !":PRINT""
  160. 705 GOTO585
  161. 710 PRINT"[144]":FORI=1TO9:PRINTSPC(8)CL$:NEXT
  162. 715 PRINT"":FORI=1TO5:PRINTSPC(13)"[181]"SPC(11)"[182]":NEXT
  163. 720 PRINTSPC(13)"[159][207][183][183][183][183][183][183][183][183][183][183][183][208]":PRINTSPC(13)"[180][207][183][208] [207][183][208] [207][183][208][170]"
  164. 725 PRINTSPC(13)"[180][180][209][159][170] [180][209][159][170] [180][209][159][170][170]"
  165. 730 PRINTSPC(13)"[180][204][175][186] [204][175][186] [204][175][186][170]":PRINTSPC(13)"[204][175][175][175][175][175][175][175][175][175][175][175][186]"
  166. 740 POKE214,18:PRINT:PRINTSPC(9)"[144]RICHTUNGEN : "RI$(P):GOTO750
  167. 748 REM **** KOMMANDOAUSWERTUNG ****
  168. 749 FORI=1TO2500:NEXT
  169. 750 ZA=0:GOSUB7000
  170. 755 GOSUB860:INPUT"[158] KOMMANDO :";K$
  171. 760 IFLEFT$(K$,1)=" "THENK$=RIGHT$(K$,LEN(K$)-1):GOTO760
  172. 765 IFLEN(K$)=1THEN870
  173. 770 FORI=1TOLEN(K$):IFMID$(K$,I,1)=" "THEN780
  174. 772 NEXT
  175. 775 GOSUB860:PRINT"          UNKORREKTE EINGABE !":GOTO749
  176. 780 V$=LEFT$(K$,I-1):H$=RIGHT$(K$,LEN(K$)-I)
  177. 785 IFLEFT$(H$,1)=" "THENH$=RIGHT$(H$,LEN(H$)-1):GOTO785
  178. 790 IFV$="SAGE"THEN6500
  179. 795 FORI=1TO14:IFLEFT$(V$(I),LEN(V$))=V$THENX=I:GOTO805
  180. 800 NEXT:NV$=V$:GOTO815
  181. 805 FORI=1TO21:IFLEFT$(H$(I),LEN(H$))=H$THENY=I:GOTO825
  182. 810 NEXT:NV$=H$
  183. 815 GOSUB860:PRINT"[145] TUT MIR LEID, ABER ICH VERSTEHE"
  184. 820 PRINT" '"NV$"' NICHT.":GOTO749
  185. 825 IFX>9THENX=X-5
  186. 830 FORI=1TOLEN(KB$(X)):IFMID$(KB$(X),I,1)=CHR$(Y+64)THEN950
  187. 835 NEXT:GOSUB860
  188. 840 PRINT"[145] TUT MIR LEID, ABER ICH VERSTEHE IHREN"
  189. 845 PRINT" BEFEHL NICHT.":GOTO749
  190. 860 POKE214,20:PRINT:FORI=1TO3:PRINTEF$:NEXT:PRINT"[145][145][145]":RETURN
  191. 869 REM **** BEWEGEN ****
  192. 870 FORI=1TO6:IFK$=MID$("NSWOHR",I,1)THEN880
  193. 875 NEXT:GOTO775
  194. 880 IFGS=1ORZB=1ORMR=1THEN7600
  195. 882 FORI=1TOLEN(RI$(P))STEP2
  196. 885 IFMID$(RI$(P),I,1)=K$THEN900
  197. 890 NEXT:GOSUB860
  198. 895 PRINT"   IN DIESE RICHTUNG GEHT ES NICHT":GOTO749
  199. 900 SC=0:ZI=VAL(MID$(ZI$(P),I,2))
  200. 905 IFP=16ANDZI=13THEN925
  201. 910 IFP=13ANDZI=9ANDG(8)=0ANDV=1THEN7660
  202. 915 IFZI=0THEN7680
  203. 920 P=ZI:GOTO180
  204. 925 IFG(8)=0THENONVGOTO930,7650,7670
  205. 930 GOSUB860:PRINT"[145] HINTER IHNEN LOEST SICH EINE STEIN-"
  206. 935 PRINT" LAWINE, DIE DEN WEG VERSCHUETTET.":RI$(16)="W-O":ZI$(16)="1517"
  207. 940 FORI=1TO2500:NEXT:P=ZI:GOTO180
  208. 949 REM ** SPRUNG ZUR BEF.AUSFUEHRUNG **
  209. 950 IFX=4ANDY<13THEN7100
  210. 955 IFX=5THEN7200
  211. 960 ZN=1000+(X-1)*500+(Y-1)*20:ZN$=STR$(ZN)
  212. 965 FORI=1TO4:NZ=VAL(MID$(ZN$,I+1,1))
  213. 970 POKE(2060+I),(NZ+48)
  214. 975 NEXT
  215. 980 GOSUB860:GOTO1
  216. 998 REM *** BEFEHLSAUSFUEHRUNG ***
  217. 999 PRINT"  OK !":GOTO749
  218. 1000 IFY=1ORY=7ORY=16ORY=19ORY=20THENE$="E ":GOTO1002
  219. 1001 E$=" "
  220. 1002 PRINT" HIER IST KEIN"E$H$(Y):GOTO749
  221. 1020 IFG(Y)=0ORG(Y)=PTHEN999
  222. 1022 GOTO1000
  223. 1060 GOTO1020
  224. 1180 IFG(10)<>0ANDG(10)<>PTHEN1000
  225. 1182 IFV<>2THENPRINT" DER "H$(10)" LAESST SICH NICHT OEFFNEN":GOTO749
  226. 1184 IFG(9)<>21THEN999
  227. 1186 PRINT" IM "H$(10)" BEFINDET SICH EIN "H$(9)" !!":G(9)=P:GOTO749
  228. 1300 IFP=18ANDRI$(18)="H"ANDV=3THEN1306
  229. 1302 IFP=1ORP>13THEN1000
  230. 1304 PRINT" HIER IST KEINE GESCHLOSSENE TUER":GOTO749
  231. 1306 IFG(11)<>0THENPRINT" DIE TUER IST VERSCHLOSSEN !":GOTO749
  232. 1308 RI$(18)="O-H":ZI$(18)="1909":RI$(19)="S-W":ZI$(19)="1718":GOTO180
  233. 1340 IFP<>11THEN1000
  234. 1342 IFV=3ORG(10)<>21THEN999
  235. 1344 IFG(11)<>0THENPRINT" DER SCHRANK IST VERSCHLOSSEN":GOTO749
  236. 1346 PRINT"[145]   IM SCHRANK BEFINDET SICH"
  237. 1348 PRINT"   EIN GOLDENER BALL":G(10)=11:GOTO749
  238. 1400 PRINT" DAS IST UNMOEGLICH !":GOTO749
  239. 1580 IFG(5)<>PTHEN1000
  240. 1582 IFP=18THENPRINT" ES IST ZU DUNKEL HIER !":GOTO749
  241. 1584 IFG(2)=0THEN1590
  242. 1586 PRINT"[145] SIE BRAUCHEN EINEN BEHAELTER"
  243. 1588 PRINT" UM DEN FROSCH ZU FANGEN !":GOTO749
  244. 1590 IFGG=5THENPRINT" SIE TRAGEN SCHON 5 GEGENSTAENDE !":GOTO749
  245. 1592 G(5)=0:GG=GG+1:PRINT" OK !":GOTO749
  246. 1740 IFMR=1THEN7640
  247. 1742 IFV=3ANDP=9ANDMO=0THENPRINT" VON HIER AUS GEHT DAS NICHT !":GOTO749
  248. 1744 GOTO1000
  249. 1780 IFGS<>1THEN1000
  250. 1782 PRINT"  DER GEIST MAG DAS NICHT !!":FORI=1TO2000:NEXT:GOTO7630
  251. 2080 IFG(5)=PTHENPRINT" DER FROSCH LAESST SICH NICHT KUESSEN":GOTO749
  252. 2082 IFG(5)<>0THEN1000
  253. 2084 IFV<>1ORP<>6THEN999
  254. 2086 PRINT" ES KNALLT UND STINKT...":FORI=1TO2000:NEXT:GOTO7800
  255. 2240 IFMR<>1THEN1000
  256. 2242 PRINT"[145] DAS MONSTER SCHLAEGT WILD UM SICH"
  257. 2244 PRINT" UND SCHLEUDERT SIE AUS DEM BRUNNEN":MR=0
  258. 2246 FORI=1TO3000:NEXT:P=9:GOTO180
  259. 2260 IFZB<>1THEN1000
  260. 2262 FORI=0TO15:POKE53281,I:POKE53280,I:FORJ=1TO100:NEXT:NEXT:ZB=0
  261. 2264 POKE53280,5:POKE53281,5:ZK=ZK+1:IFZK=3THEN7620
  262. 2266 P=2+INT(13*RND(TI)):GOTO180
  263. 2280 IFGS<>1THEN1000
  264. 2282 IFTI$<"001000"THEN7630
  265. 2284 GE=1:GS=0:FORI=832TO892STEP3:POKEI,0:POKEI+1,0:POKEI+2,0:NEXT
  266. 2286 PRINT"[145]  DER GEIST HAT IHREN MUNDGERUCH":PRINT"  NICHT VERTRAGEN !"
  267. 2288 GOTO749
  268. 2400 IFP<>10ORFA=1THEN1000
  269. 2402 IFV<>1THEN999
  270. 2404 IFV=1THENFA=1:RI$(10)="N-W-R":ZI$(10)="070919"
  271. 2406 RI$(19)="S-H":ZI$(19)="1710":GOTO180
  272. 2820 IFP<>3ORLEN(RI$(3))=5THEN1000
  273. 2822 PRINT" DAS GEHT NICHT !":GOTO749
  274. 2840 IFP<>11THEN1000
  275. 2842 PRINT" DER SCHRANK IST ZU SCHWER !":GOTO749
  276. 2900 IFP<>10ORFA=1THEN1000
  277. 2902 GOTO2822
  278. 3560 IFGS=1THEN7630
  279. 3562 IFG(4)<>0THENPRINT" ICH HABE DAS BUCH NICHT !":GOTO749
  280. 3564 IFV=3THEN3568
  281. 3566 PRINT" ZAUBERWORT : "Z1$:GOTO749
  282. 3568 PRINT"[145] ZAUBERWOERTER : "Z1$:PRINT""SPC(17)Z2$:GOTO749
  283. 3660 IFG(9)<>0THENPRINT" ICH HABE KEINEN ZETTEL":GOTO749
  284. 3662 PRINT" ZAUBERWORT: "Z2$:FORI=1TO2500:NEXT
  285. 3664 PRINT"[145] DER ZETTEL VERSCHWINDET !!!":GG=GG-1:G(9)=21:GOTO749
  286. 3860 IFP<>12ORSC=0THEN1000
  287. 3862 PRINT"[145]  TUT MIR LEID, ABER ES SCHEINT"
  288. 3864 PRINT"  EINE FREMDE SPRACHE ZU SEIN":GOTO749
  289. 4300 IFP<12OR(V=3ANDP=18)THENPRINT" OK...NICHTS PASSIERT !":GOTO749
  290. 4302 GOTO1000
  291. 4320 IFP<>3ORLEN(RI$(3))=5THEN1000
  292. 4322 PRINT"[145] HINTER DEM "H$(17)
  293. 4324 PRINT" SCHEINT EIN HOHLRAUM ZU SEIN !":GOTO749
  294. 4380 IFV=2ANDP=12ANDLEN(RI$(12))=3THEN4388
  295. 4382 IFP=19ANDG(8)=21THEN4392
  296. 4384 IFP>14ANDP<18THEN1000
  297. 4386 PRINT" OK...NICHTS BESONDERES FESTZUSTELLEN !":GOTO749
  298. 4388 POKE214,11:PRINT:PRINTSPC(18)"[158][213][171]/[215]":GOSUB860
  299. 4390 PRINT" EINE SCHRIFT ERSCHEINT...":SC=1:GOTO749
  300. 4392 G(8)=19:PRINT" AN DER WAND HAENGT EIN SCHWERT !":GOTO749
  301. 4400 IFP=10ANDFA=0THENPRINT" KLINGT HOHL...":GOTO749
  302. 4402 GOTO1000
  303. 4580 IFG(5)<>0ANDG(5)<>PTHEN1000
  304. 4582 PRINT" DER FROSCH ENTWISCHT IHNEN !"
  305. 4584 IFG(5)<>18ORV<>1THEN4588
  306. 4586 GOTO749
  307. 4588 IFG(5)=0THENGG=GG-1
  308. 4590 G(5)=1+INT(19*RND(1)):GOTO749
  309. 4740 IFMR=0THEN1000
  310. 4742 PRINT" GUTE IDEE, ABER DAS GEHT NICHT !":GOTO749
  311. 4760 IFZB=0THEN1000
  312. 4762 GOSUB4770:IFY=0ORG(Y)<>0THEN749
  313. 4764 IFY=8ANDZA=2THEN7820
  314. 4766 GOTO7620
  315. 4770 INPUT" WOMIT ";WM$
  316. 4771 FORI=1TOLEN(WM$):IFMID$(WM$,I,1)=" "THEN4773
  317. 4772 NEXT:GOTO4774
  318. 4773 WM$=RIGHT$(WM$,LEN(WM$)-I)
  319. 4774 FORY=1TO12:IFWM$=LEFT$(H$(Y),LEN(WM$))THEN4776
  320. 4775 NEXT:GOSUB860:PRINT" ICH VERSTEHE '"WM$"' NICHT !":Y=0:RETURN
  321. 4776 IFG(Y)<>0THENGOSUB860:PRINT" ICH HABE DIESEN GEGENSTAND NICHT !"
  322. 4777 RETURN
  323. 4780 IFGS=0THEN1000
  324. 4782 GOSUB4770:IFY=0ORG(Y)<>0THEN749
  325. 4784 GOSUB860:ONVGOTO4785,4790,4794
  326. 4785 IFG(8)=0THENPRINT" SIE SIND GESTOLPERT, UND...":FORI=1TO2000:NEXT:GOTO7630
  327. 4786 IFZA=1ANDY=7THEN4798
  328. 4788 GOTO7630
  329. 4790 IFZA=1ANDY=3THEN4798
  330. 4792 GOTO7630
  331. 4794 IFY=1THENPRINT" DER GEIST IST TOT, ABER...":FORI=1TO2000:NEXT
  332. 4796 GOTO7630
  333. 4798 POKEVI+21,0:GS=0:GE=1:PRINT" OK...DER GEIST IST TOT !":GOTO749
  334. 5000 IFG(1)<>0ANDG(1)<>PTHEN1000
  335. 5002 PRINT" WOZU SOLLTE DAS GUT SEIN ?":GOTO749
  336. 5020 IFG(2)<>0ANDG(2)<>PTHEN1000
  337. 5022 PRINT"[145] SO GEHT MAN NICHT MIT FREMDEM"
  338. 5024 PRINT" EIGENTUM UM !":GOTO749
  339. 5300 IFP=18ANDRI$(18)="H"ANDV=3THEN5306
  340. 5302 IFP=1ORP>13THEN1000
  341. 5304 PRINT"WIESO, HIER IST KEINE VERSCHLOSSENE TUER":GOTO749
  342. 5306 PRINT" DIE TUER IST ZU STABIL...":GOTO749
  343. 5320 GOSUB4770:IFY=0ORG(Y)<>0THEN749
  344. 5322 IF(V=1ANDY=8)OR(V=3ANDZA=2ANDY=8)THEN7247
  345. 5324 GOSUB860:PRINT" DAS GEHT NICHT !":GOTO749
  346. 5340 IFP<>11THEN1000
  347. 5342 PRINT"[145] DER SCHRANK LAESST SICH NICHT"
  348. 5344 PRINT" MIT GEWALT OEFFNEN !":GOTO749
  349. 5380 IFP>14ANDP<18THEN1000
  350. 5382 PRINT"SIE KOENNEN DIE WAND NICHT ZERSTOEREN !":GOTO749
  351. 6499 REM *** BEFEHL 'SAGE' ***
  352. 6500 GOSUB860:IFH$=Z1$THENZA=1:GOTO6506
  353. 6502 IFH$=Z2$THENZA=2:GOTO6506
  354. 6504 GOTO7690
  355. 6506 ONVGOTO6508,6512,6520
  356. 6508 IFZA=1ANDG(7)=0ANDGS=1ANDG(4)=0THENPRINT" DIE KEULE VIBRIERT...":GOTO6528
  357. 6510 GOTO6526
  358. 6512 IFZA=1ANDP=12ANDSC=1THENRI$(12)="N-W-O":ZI$(12)="080013":GOTO415
  359. 6514 IFZA=1ANDG(3)=0ANDGS=1THENPOKEVI+39,0:GOTO755
  360. 6516 IFZA=2ANDG(8)=0ANDZB=1ANDG(4)=0THENPRINT" DAS SCHWERT LEUCHTET...":GOTO6528
  361. 6518 GOTO6526
  362. 6520 IFZA=1ANDG(3)=0ANDMO=0ANDP=9THENPRINT" DAS AMULETT LEUCHTET...":GOTO6528
  363. 6522 IFZA<>2ORG(4)<>0ORP<>3ORRI$(3)<>"W-O"THEN6526
  364. 6524 PRINT" DER SPIEGEL LEUCHTET...":GOTO6528
  365. 6526 PRINT" OK...ES TUT SICH NICHTS !":GOTO749
  366. 6528 FORI=1TO2000:NEXT:GOTO755
  367. 6999 REM * BESITZ/GEGENSTD ANZEIGEN *
  368. 7000 PRINT"";:FORI=1TO20:PRINT"        ":NEXT
  369. 7002 PRINT"[144]SIE":PRINT"BESITZEN":SP=0
  370. 7005 FORI=1TO12:IFG(I)=0THENGOSUB7050
  371. 7010 NEXT
  372. 7020 PRINT"";:FORI=1TO20:PRINTSPC(32)"       ":NEXT
  373. 7022 J=0:PRINT"[144]"SPC(32)"ES GIBT":PRINTSPC(32)"HIER :":SP=32
  374. 7025 FORI=1TO12:IFG(I)=PTHENGOSUB7050:J=J+1:IFJ=6THENRETURN
  375. 7030 NEXT:RETURN
  376. 7050 IFI=1THENPRINTSPC(SP)"GLAS-":PRINTSPC(SP)"KUGEL":RETURN
  377. 7055 IFI=11THENPRINTSPC(SP)"SCHLUES":PRINTSPC(SP)"SEL":RETURN
  378. 7060 IFI=12THENPRINTSPC(SP)"KETTEN-":PRINTSPC(SP)"HEMD":RETURN
  379. 7065 PRINTSPC(SP)""G$(I):RETURN
  380. 7099 REM *** BEFEHL 'NIMM' ***
  381. 7100 IFG(Y)=PTHEN7110
  382. 7105 GOSUB860:PRINT"  DIESER GEGENSTAND IST NICHT HIER !":GOTO749
  383. 7110 IFGG<5THEN7120
  384. 7115 GOSUB860:PRINT"  SIE HABEN BEREITS 5 GEGENSTAENDE !":GOTO749
  385. 7120 IFY=5THENGOSUB860:PRINT"    DER FROSCH HUEPFT IHNEN DAVON !":GOTO749
  386. 7125 G(Y)=0:GG=GG+1:GOSUB860:PRINT"   OK !":FORI=1TO1000:NEXT:GOTO750
  387. 7199 REM *** BEFEHL 'WIRF' ***
  388. 7200 IFG(Y)<>0THENGOSUB860:PRINT" ICH HABE DIESEN GEGENSTAND NICHT !":GOTO749
  389. 7205 GOSUB860:INPUT"  WOHIN ";WH$
  390. 7210 FORI=1TOLEN(WH$):IFMID$(WH$,I,1)=" "THEN7220
  391. 7215 NEXT:GOTO7225
  392. 7220 WH$=RIGHT$(WH$,LEN(WH$)-I)
  393. 7225 IFWH$="BODEN"ORWH$="WEG"ORWH$="EGAL"ORWH$="WAND"THEN7235
  394. 7230 ONVGOTO7240,7270,7330
  395. 7235 GOSUB860:PRINT"  OK !":G(Y)=P:GG=GG-1:GOTO749
  396. 7240 IFY<>8ORWH$<>"SPIEGEL"ORP<>3ORLEN(RI$(3))=5THEN7255
  397. 7245 G(Y)=3:GG=GG-1
  398. 7247 RI$(3)="N-W-O":ZI$(3)="010204":GOSUB860
  399. 7250 PRINT"  DER SPIEGEL ZERBRICHT !":FORI=1TO2000:NEXT:GOTO180
  400. 7255 IFY<>10ORWH$<>"BRUNNEN"ORP<>9ORG(5)<>18THEN7380
  401. 7260 GOSUB860:PRINT"[145]  AUS DEM BRUNNEN KOMMT EIN FROSCH"
  402. 7265 PRINT"  MIT DEM BALL IM MUND.":G(10)=9:G(5)=9:GG=GG-1:GOTO749
  403. 7270 IFY<>3ORWH$<>"GEIST"ORGS<>1THEN7290
  404. 7275 IFZA<>1THEN7630
  405. 7280 POKEVI+21,0:GOSUB860:PRINT"    SIE HABEN DEN GEIST BESIEGT !"
  406. 7285 GE=1:GS=0:G(Y)=7:GG=GG-1:GOTO749
  407. 7290 IFY<>6ORP<>10ORWH$<>"QUADRAT"ORFA=1THEN7305
  408. 7295 FA=1:G(6)=10:GG=GG-1:RI$(10)="N-W-R":ZI$(10)="070919"
  409. 7300 RI$(19)="S-H":ZI$(19)="1710":GOTO180
  410. 7305 IFY<>4ORP<>3ORWH$<>"SPIEGEL"ORLEN(RI$(3))=5THEN7315
  411. 7310 GOTO7245
  412. 7315 IFY<>8ORZB<>1ORWH$<>"ZAUBERER"THEN7380
  413. 7320 IFZA<>2THEN7620
  414. 7325 POKEVI+21,0:FORI=1TO2000:NEXT:GOTO7820
  415. 7330 IFY<>1ORWH$<>"GEIST"ORGS<>1THEN7340
  416. 7335 GOTO7280
  417. 7340 IFY<>3ORWH$<>"BRUNNEN"ORP<>9THEN7360
  418. 7345 G(3)=18:GG=GG-1:GOSUB860:IFMO=1THENPRINT"  OK !":GOTO749
  419. 7350 IFZA=1THENPRINT" AUS DEM BRUNNEN ERTOENT EIN SCHREI...":MO=1:GOTO749
  420. 7355 G(3)=9:PRINT" DAS AMULETT KOMMT ZURUECKGEFLOGEN !":GOTO749
  421. 7360 IFY<>8ORWH$<>"SPIEGEL"ORP<>3ORLEN(RI$(3))=5THEN7380
  422. 7365 IFZA=2THEN7245
  423. 7370 GOTO7235
  424. 7380 IFWH$="BRUNNEN"ANDP=9THENG(Y)=18:GOTO7415
  425. 7382 IFWH$="QUADRAT"ANDP=10ANDFA=0THENG(Y)=10:GOTO7415
  426. 7385 IFWH$="HOEHLE"ANDP=17THENG(Y)=19:GOTO7415
  427. 7390 IFWH$="GEIST"ANDGS=1THEN7630
  428. 7395 IFWH$="ZAUBERER"ANDZB=1THEN7620
  429. 7400 IFWH$="SPIEGEL"ANDP=3ANDLEN(RI$(3))=3THEN7235
  430. 7405 GOSUB860:PRINT" ICH VERSTEHE SIE NICHT..."
  431. 7410 FORI=1TO2000:NEXT:GOTO7205
  432. 7415 GG=GG-1:GOSUB860:PRINT"  OK !":GOTO749
  433. 7499 REM *** ERKLAERUNG ***
  434. 7500 PRINT"[147] [211]IE MUESSEN VERSUCHEN, EINE [193]UFGABE ZU"
  435. 7505 PRINT" LOESEN, INDEM [211]IE DEM [195]OMPUTER SAGEN,"
  436. 7510 PRINT" WAS ER TUN SOLL."
  437. 7515 PRINT" [218]UR  [198]ORTBEWEGUNG  GEBEN  [211]IE NUR"
  438. 7520 PRINT" [193]BKUERZUNGEN EIN ([206]-[211]-[215]-[207]-[200]-[210] = [206][207][210][196] -":REM N-S-W-O-H-R = NORD -
  439. 7525 PRINT" [211][213][197][196] - [215][197][211][212] - [207][211][212] - [200][207][195][200] - [210][213][206][212][197][210])"
  440. 7526 REM SUED - WEST - OST - HOCH - RUNTER
  441. 7530 PRINT" [193]NSONSTEN MUESSEN DIE [194]EFEHLE AUS ZWEI"
  442. 7535 PRINT" [215]OERTERN BESTEHEN ([214]ERB/[200]AUPTWORT)"
  443. 7540 PRINT" [196]ER [195]OMPUTER VERSTEHT DIE [214]ERBEN :"
  444. 7545 PRINT" OEFFNE,FANGE,KUESSE,NIMM,LIES,WIRF,"
  445. 7550 PRINT" BERUEHRE/KLOPFE,ERSCHLAGE/TOETE,SAGE"
  446. 7555 PRINT" ZERBRECHE/ZERSTOERE   -  [198]ERTIG ???"
  447. 7560 POKE198,0:WAIT198,1:GOTO100
  448. 7599 REM **** VERLOREN ****
  449. 7600 IFZB=1THEN7620
  450. 7605 IFGS=1THEN7630
  451. 7610 IFMR=1THEN7640
  452. 7620 PRINT"[147][144] DER ZAUBERER HAT SIE IN EINE KROETE"
  453. 7625 PRINT" VERWANDELT.":GOTO7700
  454. 7630 PRINT"[147][144]     DER GEIST HAT SIE GEBISSEN.":GOTO7700
  455. 7640 PRINT"[147][144] DAS MONSTER HAT BESCHLOSSEN, SIE"
  456. 7645 PRINT" ZU HEIRATEN.":GOTO7700
  457. 7650 PRINT"[147][144] SIE SIND UNTERWEGS GESTOLPERT UND"
  458. 7655 PRINT" HABEN SICH DABEI DEN KLEINEN FINGER":PRINT" VERSTAUCHT.":GOTO7700
  459. 7660 PRINT"[147][144] AUS DEM TORBOGEN HAT SICH EIN STEIN"
  460. 7665 PRINT" GELOEST UND IST IHNEN AUF DEN FUSS":PRINT" GEFALLEN.":GOTO7700
  461. 7670 PRINT"[147][144] SIE SIND IN EINEN ERDRUTSCH GERATEN"
  462. 7675 PRINT" UND HABEN SICH IHRE NEUE HOSE DRECKIG":PRINT" GEMACHT.":GOTO7700
  463. 7680 PRINT"[147][144] SIE SIND VOM BERG GEFALLEN UND HABEN"
  464. 7685 PRINT" DABEI IHRE BRILLE ZERBROCHEN.":GOTO7700
  465. 7690 PRINT"[147][144]        SIE HABEN SICH IN EINE"
  466. 7695 PRINT"          BANANE VERWANDELT !"
  467. 7700 PRINT" DESHALB MUESSEN SIE LEIDER AUFGEBEN."
  468. 7705 PRINT"[158] MOECHTEN SIE ES NOCH EINMAL PROBIEREN ?"
  469. 7710 GETI$:IFI$="J"THENRUN5
  470. 7715 IFI$<>"N"THEN7710
  471. 7720 END
  472. 7799 REM **** GEWONNEN ****
  473. 7800 PRINT"[147][158]        ... UND  DER  "H$(5)" ...":FORI=1TO1500:NEXT
  474. 7805 PRINT"[145]         ... VERWANDELT  SICH ...":FORI=1TO1500:NEXT
  475. 7810 PRINT"[145]... IN EINE WUNDERSCHOENE PRINZESSIN ...":FORI=1TO2000:NEXT
  476. 7815 PRINT"[147]":GOTO7840
  477. 7820 POKEVI+21,0:PRINT"[147][158]    SIE HABEN DEN ZAUBERER BESIEGT !!!":GOTO7840
  478. 7830 PRINT"[147][158]    SIE HABEN DEN SCHATZ GEFUNDEN !!!"
  479. 7840 PRINTSPC(13)"GRATULIERE,":PRINT"     SIE HABEN IHR ZIEL ERREICHT !!"
  480. 7850 PRINT"      WOLLEN SIE WEITER SPIELEN ?"
  481. 7860 GETI$:IFI$="J"THENRUN5
  482. 7870 IFI$<>"N"THEN7860
  483. 7880 END
  484. 8000 DATAOEFFNE,BDJPRU,FANGE,EMO,KUESSE,EMNOU,NIMM,ABCDEFGHIJKLQRU
  485. 8005 DATAWIRF,ABCDEFGHIJKL,LIES,DIS,BERUEHRE,PQTU,TOETE,EMNO
  486. 8010 DATAZERSTOERE,ABPQRT,WERFE,LESE,KLOPFE,ERSCHLAGE,ZERBRECHE
  487. 8015 DATAGLASKUGEL,KAEFIG,AMULETT,BUCH,FROSCH,HELM,KEULE,SCHWERT,ZETTEL,BALL
  488. 8020 DATASCHLUESSEL,KETTENHEMD,MONSTER,ZAUBERER,GEIST,TUER,SPIEGEL,SCHRANK
  489. 8025 DATASCHRIFT,WAND,QUADRAT
  490. 8030 DATAS,03,S-O,0503,W-O,0204,W-H,0311,N-S,0208,O,07,S-W,1006,N-O,0509
  491. 8035 DATAS-W-O-R,13081018,N-W,0709,R,04,W-O,0013,N-W-O,091214,W-O,1300,O,16
  492. 8040 DATAW-O-H,151713,N-W,1916,H,09,S,17
  493. 8045 DATA20,20,20,20,18,2,21,21,21,21,6,5
  494. 8050 DATASILBER,BLUME,GOLD,RING,KUPFER,HORN,PLATIN,STERN
  495. 8054 REM SPRITE 1 - GEIST
  496. 8055 DATA0,127,0,0,255,192,1,206,96,3,255,240,1,255,240,1,245,248,1,255,248
  497. 8060 DATA3,255,248,7,255,248,15,255,252,31,255,254,3,255,240,3,255,224
  498. 8065 DATA3,255,224,7,255,224,7,255,224,7,255,240,15,255,240,15,255,248
  499. 8070 DATA31,255,252,59,187,110
  500. 8074 REM SPRITE 2 - MONSTER
  501. 8075 DATA12,0,48,30,0,120,3,0,192,1,129,128,3,195,192,15,231,240,62,126,124
  502. 8080 DATA124,60,62,248,60,31,254,126,127,255,255,255,127,255,254,127,255,254
  503. 8085 DATA63,90,252,30,165,120,31,255,248,7,255,224,4,126,32,4,60,32
  504. 8090 DATA31,0,248,42,129,84
  505. 8094 REM SPRITE 3 - ZAUBERER
  506. 8095 DATA0,15,224,0,63,128,0,127,128,0,219,0,1,255,0,3,255,128,31,255,240
  507. 8100 DATA127,255,252,127,255,252,111,255,236,111,255,236,103,255,204,98,170,140
  508. 8105 DATA99,255,140,71,255,196,7,199,192,15,131,224,15,1,224,14,0,224
  509. 8110 DATA28,0,112,60,0,120
  510. 8200 REM
  511. 8201 REM **********************
  512. 8202 REM *   CASTLE OF DOOM   *
  513. 8203 REM * VON B. WEISSBECKER *
  514. 8204 REM *  MAERZ/APRIL 1984  *
  515. 8205 REM **********************
  516.